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ABSTRACT: 


Commonly used definitions for VMS modules written in BLISS 


Version: *v04-000' 


VSR R ERE AEE RAE EERE ERA AAA AAA AEA AERA EA ATER ETAT eee 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte? 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Taenarehatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
emPOnat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eRe A AAA AERA AAA AEAAAA EEE AERA eee 


This is the common require file for any module written 
in BLISS 


i ENVIRONMENT: 


VAX/VMS operating system. 


i AUTHOR: Tim Halvorsen, Feb 1980 
MODIFIED BY: 
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Equated symbols 


LITERAL 
true 


SY. ' boolean true 
false = 0, ' boolean false 
ok = 1, ! success return code 
error z : ' error return code 
quad = 8; ! quadword allocation definition 
! 
: Define structure type for VMS structures 
STRUCTURE 
bblock Co, p $- e; nj = 
n 
(bblock+o)<p,s,e>; 
MACRO 
descriptor (] = ! Generat ic string descriptor 


a sta 
UPLIT yea | (ZSTRING CZREMAININ NG)) 
UPLIT BYTE (ZSTRING (ZREMAINING)) 


MACRO 
own_desciptor [] = ! Generate 
“BBLOCK (8) INITIAL CXCHARCOUNT CISTR 
PLIT BYTE (2%STRIN 
MACRO 
return_if_error(command) = 
BEGIN 


LOCAL 
status; 


status = command; 
If NOT .status 
THEN 


RETURN .status; 
END2; 


0 
signal_if_error(command) = 
BEGIN 


LOCAL 
status; 


status = command; 
= wl Status 


"BEGIN 
SIGNAL(.status); 
A ga Status; 
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Macro to implement a function (f) of the yee &. eyer ity a ps that 

maps the var aye sever 2 a, Levels uch that ar hmet t ¢ comparis *" of the 

mapped value f(severity yield a order of precedence that is 

intuivitvely. ereemnabins 
| 
| 


ERROR NAME OLDVAL NEWVAL 


F (SUCCESS) 1 --> 0 
Pkt tate --> 
F (WAR a --> 
F CERRO -=> 
FCSEWERE ERROR) 4 ==> 


MACRO 
saa *}3 level (status) = 


| 
| 
| 
CBeAL code: BBLOCK [LONG]; 
code = statu 

gcoge (sts$v. severity) - (4 * .code Csts$v_success]) + 3 | 


MACRO 


ol tSgevornet toret ix) = 
ZIF ZDECL iat ieee ZQUOTE Fh ‘Seretia? 
ZTHEN UNDECLARE ag 2 AE: x ike cliS$prefix; %Fl 


MACRO by = prefix ZQUOTE 
EXTERNAL LIT 
cli$external_loop(ZREMAINING)2Z, 


cliSexternal_loop[name] = 
IN NAME (cLTSprefix name) : UNSIGNED (8) 2%; 


MACRO 
Sexternal_literal(symbol) = 
BEGI 


| 
| 
| 
ZIF NOT ZDECLARED(symbol) ZTHEN EXTERNAL LITERAL symbol 
ZIP RLENGTH GTR 1 STHEN : ZREMAINING 3FI; SFI 
| 
| 
} 
| 
| 
| 
| 
| 


pyabe ol 
MACR 
Stab devidev_bit) = ! Access FABSL_DEV bits of FAB block 
SBYTEOFFSET( fab$l 
ITPOSITION(% INAMEC ies,? -dev_bit)),1,0%; 


i $SHR SESSASES - a macro which defines facility-specific message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES( mame, code, (msg,severity), ... ) 
where: 
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: anene,, s the name of he fog tis Y (e.g., th 

; s the: serrewpene ng facility code (e.g 

i iss he na th e shared message (e.9., 6 
; ee der ty" is the desired message severity (e.g., 


MACRO 
vom. SSAGES( FACILITY_NAME, FACILITY CODE ) = 
CARESS. I1DS( FACILITY_NAME, FACILITY CODE, ZREMAINING ); %, 


SHRSMSG_IDS( FACILITY NAME, FACILITY CODE) C VALUE J] = 
SHRSMSG_CALC( FACTLITY_NAME, FACTLITY_CODE, REMOVE <VALUE) ) %, 


| 
Lity NAME, aries ie ss ID, SEVERITY ) = 
MARE - MSG_ID) = XNAME(*SARS.",MSG_ID) + FACILITY_CODE*65536 + 
RED NAME ( STSSK eS 


AME ( ST SSR. xoeY evésiyys 
SEVERITe xFI7% 


AL EQUIPMENT CORPORATION 


- 
IDENTIAL AND PROPRIETARY. 
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